home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / misc / edu / globe099src.lha / Ami-Globe / AmiGlobe_Interf.c < prev    next >
C/C++ Source or Header  |  1994-11-17  |  32KB  |  1,288 lines
  1. #ifndef MAKE_ID
  2. #define MAKE_ID(a,b,c,d) ((ULONG) (a)<<24 | (ULONG) (b)<<16 | (ULONG) (c)<<8 | (ULONG) (d))
  3. #endif
  4.  
  5. #ifdef _DCC
  6. #define __inline
  7. #endif
  8.  
  9. #include "AmiGlobe_Interf.h"
  10.  
  11. struct ObjApp * CreateApp(void)
  12. {
  13.     struct ObjApp * Object;
  14.  
  15.     APTR    GROUP_ROOT_Cmd, GR_commandes, GR_infos, GR_infos_latlon, LA_lon, LA_latitude;
  16.     APTR    GR_grp_pays_courant, LA_Sel, LA_courant, GROUP_ROOT_parametres, GR_Param_Gene;
  17.     APTR    LA_Lakes, LA_Rivers, LA_Latitudes, LA_label_Country_Name, LA_coord;
  18.     APTR    LA_Fill_Pays, LA_Elements, LA_Trajectoires, LA_Distance, LA_Scale;
  19.     APTR    LA_Area, GR_grp_12, GR_3d, obj_aux0, obj_aux1, obj_aux2, obj_aux3;
  20.     APTR    obj_aux4, obj_aux5, Space_0, GROUP_ROOT_2, GROUP_ROOT_4, obj_aux6;
  21.     APTR    obj_aux7, obj_aux8, obj_aux9, obj_aux10, obj_aux11, GROUP_ROOT_5;
  22.     APTR    GROUP_ROOT_6, GR_grp_11, GROUP_ROOT_10, GR_grp_30, GR_grp_24, Space_1;
  23.     APTR    GR_Edit_Donnee, GR_File_Donnee, GR_Virtuel, obj_aux12, obj_aux13;
  24.     APTR    GR_Infos_Donnees, LA_Nom_Titre, LA_Nom_Label, LA_Type_Titre, LA_Titre_Label;
  25.     APTR    Space_2, GR_Operations, GROUP_ROOT_8, GR_Vertical_Gauche, GR_Horizontal_Gauche;
  26.     APTR    GR_Vertical_Centre, GR_Action, GR_Vertical_Droite, GROUP_ROOT_13;
  27.     APTR    GR_grp_28, obj_aux14, obj_aux15, GR_grp_29, GROUP_ROOT_organisation;
  28.     APTR    GR_info_organisation, LA_organisation_officiel, GROUP_ROOT_INFO_ELEM;
  29.     APTR    GR_grp_41, LA_lat, GR_grp_42, LA_latitude_element, GROUP_ROOT_17;
  30.     APTR    GR_grp_45, LA_classement, GROUP_ROOT_info, REC_label_0;
  31.  
  32.     if (!(Object = AllocVec(sizeof(struct ObjApp), MEMF_PUBLIC|MEMF_CLEAR)))
  33.         return(NULL);
  34.  
  35.     Object->STR_TX_lon = NULL;
  36.     Object->STR_TX_lat = NULL;
  37.     Object->STR_TX_Selectionne = NULL;
  38.     Object->STR_TX_courant = NULL;
  39.     Object->STR_TX_Selected_Element = NULL;
  40.     Object->STR_TX_Pays = NULL;
  41.     Object->STR_TX_Latitude = NULL;
  42.     Object->STR_TX_Longitude = NULL;
  43.     Object->STR_TX_Caracteristique = NULL;
  44.     Object->STR_TX_organisation_officiel = NULL;
  45.     Object->STR_TX_nom_element = NULL;
  46.     Object->STR_TX_type_element = NULL;
  47.     Object->STR_TX_pays_element = "?";
  48.     Object->STR_TX_longitude_element = "?";
  49.     Object->STR_TX_latitude_element = "?";
  50.     Object->STR_TX_caracteristique_element = NULL;
  51.     Object->STR_TX_classement = NULL;
  52.  
  53.     Object->CY_ProjContent[0] = "flat";
  54.     Object->CY_ProjContent[1] = "Mercator's";
  55.     Object->CY_ProjContent[2] = "spherical";
  56.     Object->CY_ProjContent[3] = "3D";
  57.     Object->CY_ProjContent[4] = NULL;
  58.     Object->RA_Type_DataContent[0] = "Donnee Reel";
  59.     Object->RA_Type_DataContent[1] = "Donnee Virtuelle (formee d'autres donnees)";
  60.     Object->RA_Type_DataContent[2] = NULL;
  61.     Object->RA_label_4Content[0] = "X";
  62.     Object->RA_label_4Content[1] = "/";
  63.     Object->RA_label_4Content[2] = "+";
  64.     Object->RA_label_4Content[3] = "-";
  65.     Object->RA_label_4Content[4] = NULL;
  66.     Object->RA_Type_GraphContent[0] = "Data only";
  67.     Object->RA_Type_GraphContent[1] = "BarChart data (2d)";
  68.     Object->RA_Type_GraphContent[2] = "BarChart 3D";
  69.     Object->RA_Type_GraphContent[3] = "Color plages";
  70.     Object->RA_Type_GraphContent[4] = NULL;
  71.     Object->CY_organisationContent[0] = "error: informations not available";
  72.     Object->CY_organisationContent[1] = NULL;
  73.  
  74.     Object->BT_Zoom = SimpleButton("_Zoom In");
  75.  
  76.     Object->BT_Zoom_Out = SimpleButton("Z_oom Out");
  77.  
  78.     Object->BT_Redraw = SimpleButton("_Redraw");
  79.  
  80.     Object->BT_Zoom_Reset = SimpleButton("Rese_t");
  81.  
  82.     Object->BT_Info = SimpleButton("_Infos");
  83.  
  84.     Object->CY_Proj = CycleObject,
  85.         MUIA_HelpNode, "CY_Proj",
  86.         MUIA_Cycle_Entries, Object->CY_ProjContent,
  87.     End;
  88.  
  89.     GR_commandes = GroupObject,
  90.         MUIA_Weight, 0,
  91.         MUIA_Group_Horiz, TRUE,
  92.         Child, Object->BT_Zoom,
  93.         Child, Object->BT_Zoom_Out,
  94.         Child, Object->BT_Redraw,
  95.         Child, Object->BT_Zoom_Reset,
  96.         Child, Object->BT_Info,
  97.         Child, Object->CY_Proj,
  98.     End;
  99.  
  100.     LA_lon = Label("Lon:");
  101.  
  102.     Object->TX_lon = TextObject,
  103.         MUIA_HelpNode, "TX_lon",
  104.         MUIA_Background, MUII_BACKGROUND,
  105.         MUIA_Frame, MUIV_Frame_Text,
  106.         MUIA_Text_Contents, Object->STR_TX_lon,
  107.     End;
  108.  
  109.     LA_latitude = Label("Lat:");
  110.  
  111.     Object->TX_lat = TextObject,
  112.         MUIA_HelpNode, "TX_lat",
  113.         MUIA_Background, MUII_BACKGROUND,
  114.         MUIA_Frame, MUIV_Frame_Text,
  115.         MUIA_Text_Contents, Object->STR_TX_lat,
  116.     End;
  117.  
  118.     GR_infos_latlon = GroupObject,
  119.         MUIA_Weight, 45,
  120.         MUIA_Group_Horiz, TRUE,
  121.         Child, LA_lon,
  122.         Child, Object->TX_lon,
  123.         Child, LA_latitude,
  124.         Child, Object->TX_lat,
  125.     End;
  126.  
  127.     LA_Sel = Label("sel:");
  128.  
  129.     Object->TX_Selectionne = TextObject,
  130.         MUIA_HelpNode, "TX_Selectionne",
  131.         MUIA_Background, MUII_BACKGROUND,
  132.         MUIA_Frame, MUIV_Frame_Text,
  133.         MUIA_Text_Contents, Object->STR_TX_Selectionne,
  134.         MUIA_Text_SetMin, TRUE,
  135.     End;
  136.  
  137.     LA_courant = Label("   ");
  138.  
  139.     Object->TX_courant = TextObject,
  140.         MUIA_HelpNode, "TX_courant",
  141.         MUIA_Background, MUII_BACKGROUND,
  142.         MUIA_Frame, MUIV_Frame_Text,
  143.         MUIA_Text_Contents, Object->STR_TX_courant,
  144.     End;
  145.  
  146.     GR_grp_pays_courant = GroupObject,
  147.         MUIA_Group_Horiz, TRUE,
  148.         Child, LA_Sel,
  149.         Child, Object->TX_Selectionne,
  150.         Child, LA_courant,
  151.         Child, Object->TX_courant,
  152.     End;
  153.  
  154.     GR_infos = GroupObject,
  155.         MUIA_Weight, 0,
  156.         MUIA_Group_Horiz, TRUE,
  157.         Child, GR_infos_latlon,
  158.         Child, GR_grp_pays_courant,
  159.     End;
  160.  
  161.     GROUP_ROOT_Cmd = GroupObject,
  162.         Child, GR_commandes,
  163.         Child, GR_infos,
  164.     End;
  165.  
  166.     Object->WI_Cmd = WindowObject,
  167.         MUIA_Window_Title, "AmiGlobe v0.99",
  168.         MUIA_HelpNode, "WI_Cmd",
  169.         MUIA_Window_ID, MAKE_ID('0', 'W', 'I', 'N'),
  170.         MUIA_Window_SizeGadget, FALSE,
  171.         WindowContents, GROUP_ROOT_Cmd,
  172.     End;
  173.  
  174.     LA_Lakes = Label("Lakes");
  175.  
  176.     Object->CH_Lacs = CheckMark(FALSE);
  177.  
  178.     LA_Rivers = Label("Rivers");
  179.  
  180.     Object->CH_Riv = CheckMark(FALSE);
  181.  
  182.     LA_Latitudes = Label("Squaring");
  183.  
  184.     Object->CH_LonLat = CheckMark(FALSE);
  185.  
  186.     LA_label_Country_Name = Label("Country Names");
  187.  
  188.     Object->CH_Noms = CheckMark(FALSE);
  189.  
  190.     LA_coord = Label("Coordinates");
  191.  
  192.     Object->CH_Coord = CheckMark(FALSE);
  193.  
  194.     LA_Fill_Pays = Label("Fill Countries");
  195.  
  196.     Object->CH_Fill_Pays = CheckMark(FALSE);
  197.  
  198.     LA_Elements = Label("Elements");
  199.  
  200.     Object->CH_Elements = CheckMark(FALSE);
  201.  
  202.     LA_Trajectoires = Label("Paths");
  203.  
  204.     Object->CH_Trajectoires = CheckMark(FALSE);
  205.  
  206.     LA_Distance = Label("Distance");
  207.  
  208.     Object->CH_Distance = CheckMark(FALSE);
  209.  
  210.     LA_Scale = Label("Scale");
  211.  
  212.     Object->CH_Scale = CheckMark(FALSE);
  213.  
  214.     LA_Area = Label("Area");
  215.  
  216.     Object->CH_Area = CheckMark(FALSE);
  217.  
  218.     GR_Param_Gene = GroupObject,
  219.         MUIA_Frame, MUIV_Frame_Group,
  220.         MUIA_FrameTitle, "Show:",
  221.         MUIA_Group_Columns, 2,
  222.         Child, LA_Lakes,
  223.         Child, Object->CH_Lacs,
  224.         Child, LA_Rivers,
  225.         Child, Object->CH_Riv,
  226.         Child, LA_Latitudes,
  227.         Child, Object->CH_LonLat,
  228.         Child, LA_label_Country_Name,
  229.         Child, Object->CH_Noms,
  230.         Child, LA_coord,
  231.         Child, Object->CH_Coord,
  232.         Child, LA_Fill_Pays,
  233.         Child, Object->CH_Fill_Pays,
  234.         Child, LA_Elements,
  235.         Child, Object->CH_Elements,
  236.         Child, LA_Trajectoires,
  237.         Child, Object->CH_Trajectoires,
  238.         Child, LA_Distance,
  239.         Child, Object->CH_Distance,
  240.         Child, LA_Scale,
  241.         Child, Object->CH_Scale,
  242.         Child, LA_Area,
  243.         Child, Object->CH_Area,
  244.     End;
  245.  
  246.     Object->SL_x = SliderObject,
  247.         MUIA_HelpNode, "SL_x",
  248.         MUIA_Slider_Min, 0,
  249.         MUIA_Slider_Max, 180,
  250.         MUIA_Slider_Level, 0,
  251.     End;
  252.  
  253.     obj_aux1 = Label2("X");
  254.  
  255.     obj_aux0 = GroupObject,
  256.         MUIA_Group_Columns, 2,
  257.         Child, obj_aux1,
  258.         Child, Object->SL_x,
  259.     End;
  260.  
  261.     Object->SL_y = SliderObject,
  262.         MUIA_HelpNode, "SL_y",
  263.         MUIA_Slider_Min, 0,
  264.         MUIA_Slider_Max, 180,
  265.         MUIA_Slider_Level, 0,
  266.     End;
  267.  
  268.     obj_aux3 = Label2("Y");
  269.  
  270.     obj_aux2 = GroupObject,
  271.         MUIA_Group_Columns, 2,
  272.         Child, obj_aux3,
  273.         Child, Object->SL_y,
  274.     End;
  275.  
  276.     Object->SL_z = SliderObject,
  277.         MUIA_HelpNode, "SL_z",
  278.         MUIA_Slider_Min, 0,
  279.         MUIA_Slider_Max, 180,
  280.         MUIA_Slider_Level, 0,
  281.     End;
  282.  
  283.     obj_aux5 = Label2("Z");
  284.  
  285.     obj_aux4 = GroupObject,
  286.         MUIA_Group_Columns, 2,
  287.         Child, obj_aux5,
  288.         Child, Object->SL_z,
  289.     End;
  290.  
  291.     Object->IM_Rectangle = ImageObject,
  292.         MUIA_Image_Spec, 32,
  293.         MUIA_HelpNode, "IM_Rectangle",
  294.         MUIA_Frame, MUIV_Frame_ImageButton,
  295.         MUIA_Image_FreeVert, TRUE,
  296.         MUIA_Image_FreeHoriz, TRUE,
  297.         MUIA_FixHeight, 50,
  298.         MUIA_FixWidth, 100,
  299.     End;
  300.  
  301.     GR_3d = GroupObject,
  302.         MUIA_Weight, 101,
  303.         MUIA_Frame, MUIV_Frame_Group,
  304.         MUIA_FrameTitle, "3D",
  305.         Child, obj_aux0,
  306.         Child, obj_aux2,
  307.         Child, obj_aux4,
  308.         Child, Object->IM_Rectangle,
  309.     End;
  310.  
  311.     Space_0 = HVSpace;
  312.  
  313.     GR_grp_12 = GroupObject,
  314.         Child, GR_3d,
  315.         Child, Space_0,
  316.     End;
  317.  
  318.     GROUP_ROOT_parametres = GroupObject,
  319.         MUIA_Group_Horiz, TRUE,
  320.         Child, GR_Param_Gene,
  321.         Child, GR_grp_12,
  322.     End;
  323.  
  324.     Object->WI_Param = WindowObject,
  325.         MUIA_Window_Title, "Display Parameters",
  326.         MUIA_HelpNode, "WI_Param",
  327.         MUIA_Window_ID, MAKE_ID('1', 'W', 'I', 'N'),
  328.         WindowContents, GROUP_ROOT_parametres,
  329.     End;
  330.  
  331.     Object->LV_Pays = ListObject,
  332.         MUIA_Frame, MUIV_Frame_InputList,
  333.     End;
  334.  
  335.     Object->LV_Pays = ListviewObject,
  336.         MUIA_HelpNode, "LV_Pays",
  337.         MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  338.         MUIA_Listview_DoubleClick, TRUE,
  339.         MUIA_Listview_Input, TRUE,
  340.         MUIA_Listview_List, Object->LV_Pays,
  341.     End;
  342.  
  343.     GROUP_ROOT_2 = GroupObject,
  344.         Child, Object->LV_Pays,
  345.     End;
  346.  
  347.     Object->WI_Sel_Cty = WindowObject,
  348.         MUIA_Window_Title, "Country",
  349.         MUIA_HelpNode, "WI_Sel_Cty",
  350.         MUIA_Window_ID, MAKE_ID('2', 'W', 'I', 'N'),
  351.         WindowContents, GROUP_ROOT_2,
  352.     End;
  353.  
  354.     Object->BT_Move = SimpleButton("_Move_Pt");
  355.  
  356.     Object->BT_Show_Pt = SimpleButton("_Show Pt");
  357.  
  358.     Object->BT_Show_Seg = SimpleButton("_Show Seg");
  359.  
  360.     Object->BT_Edit = SimpleButton("_edit");
  361.  
  362.     Object->BT_Create_Pays = SimpleButton("_Cree Pays");
  363.  
  364.     Object->BT_New_Border = SimpleButton("New border");
  365.  
  366.     Object->BT_New_Point = SimpleButton("New Point");
  367.  
  368.     Object->BT_End_Border = SimpleButton("End Border");
  369.  
  370.     Object->STR_Nom_Border = StringObject,
  371.         MUIA_Frame, MUIV_Frame_String,
  372.         MUIA_HelpNode, "STR_Nom_Border",
  373.     End;
  374.  
  375.     obj_aux7 = Label2("nom:");
  376.  
  377.     obj_aux6 = GroupObject,
  378.         MUIA_Group_Columns, 2,
  379.         Child, obj_aux7,
  380.         Child, Object->STR_Nom_Border,
  381.     End;
  382.  
  383.     Object->STR_Code = StringObject,
  384.         MUIA_Frame, MUIV_Frame_String,
  385.         MUIA_HelpNode, "STR_Code",
  386.     End;
  387.  
  388.     obj_aux9 = Label2("Code");
  389.  
  390.     obj_aux8 = GroupObject,
  391.         MUIA_Group_Columns, 2,
  392.         Child, obj_aux9,
  393.         Child, Object->STR_Code,
  394.     End;
  395.  
  396.     Object->SL_Code_Point = SliderObject,
  397.         MUIA_HelpNode, "SL_Code_Point",
  398.         MUIA_Slider_Min, 0,
  399.         MUIA_Slider_Max, 5,
  400.         MUIA_Slider_Level, 0,
  401.     End;
  402.  
  403.     obj_aux11 = Label2("Code point");
  404.  
  405.     obj_aux10 = GroupObject,
  406.         MUIA_Group_Columns, 2,
  407.         Child, obj_aux11,
  408.         Child, Object->SL_Code_Point,
  409.     End;
  410.  
  411.     GROUP_ROOT_4 = GroupObject,
  412.         Child, Object->BT_Move,
  413.         Child, Object->BT_Show_Pt,
  414.         Child, Object->BT_Show_Seg,
  415.         Child, Object->BT_Edit,
  416.         Child, Object->BT_Create_Pays,
  417.         Child, Object->BT_New_Border,
  418.         Child, Object->BT_New_Point,
  419.         Child, Object->BT_End_Border,
  420.         Child, obj_aux6,
  421.         Child, obj_aux8,
  422.         Child, obj_aux10,
  423.     End;
  424.  
  425.     Object->WI_Cmd_Panel = WindowObject,
  426.         MUIA_Window_Title, "Cmd Panel",
  427.         MUIA_HelpNode, "WI_Cmd_Panel",
  428.         MUIA_Window_ID, MAKE_ID('3', 'W', 'I', 'N'),
  429.         WindowContents, GROUP_ROOT_4,
  430.     End;
  431.  
  432.     Object->LV_Continent = ListObject,
  433.         MUIA_Frame, MUIV_Frame_InputList,
  434.     End;
  435.  
  436.     Object->LV_Continent = ListviewObject,
  437.         MUIA_HelpNode, "LV_Continent",
  438.         MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  439.         MUIA_Listview_Input, TRUE,
  440.         MUIA_Listview_List, Object->LV_Continent,
  441.     End;
  442.  
  443.     GROUP_ROOT_5 = GroupObject,
  444.         Child, Object->LV_Continent,
  445.     End;
  446.  
  447.     Object->WI_Sel_Cont = WindowObject,
  448.         MUIA_Window_Title, "Continent",
  449.         MUIA_HelpNode, "WI_Sel_Cont",
  450.         MUIA_Window_ID, MAKE_ID('4', 'W', 'I', 'N'),
  451.         WindowContents, GROUP_ROOT_5,
  452.     End;
  453.  
  454.     Object->STR_PA_chargement_fond = String("", 80);
  455.  
  456.     Object->PA_chargement_fond = PopButton(MUII_PopFile);
  457.  
  458.     Object->PA_chargement_fond = PopaslObject,
  459.         MUIA_HelpNode, "PA_chargement_fond",
  460.         MUIA_Popasl_Type, 0,
  461.         MUIA_Popstring_String, Object->STR_PA_chargement_fond,
  462.         MUIA_Popstring_Button, Object->PA_chargement_fond,
  463.     End;
  464.  
  465.     Object->BT_Redraw_Ext_Data = TextObject,
  466.         ButtonFrame,
  467.         MUIA_Weight, 63,
  468.         MUIA_ControlChar, 'r',
  469.         MUIA_Text_Contents, "Background On",
  470.         MUIA_Text_PreParse, "\033c",
  471.         MUIA_Text_HiChar, 'r',
  472.         MUIA_HelpNode, "BT_Redraw_Ext_Data",
  473.         MUIA_InputMode, MUIV_InputMode_RelVerify,
  474.     End;
  475.  
  476.     Object->BT_Effacer_Fond = TextObject,
  477.         ButtonFrame,
  478.         MUIA_Weight, 42,
  479.         MUIA_ControlChar, 'e',
  480.         MUIA_Text_Contents, "Background Off",
  481.         MUIA_Text_PreParse, "\033c",
  482.         MUIA_Text_HiChar, 'e',
  483.         MUIA_HelpNode, "BT_Effacer_Fond",
  484.         MUIA_InputMode, MUIV_InputMode_RelVerify,
  485.     End;
  486.  
  487.     GR_grp_11 = GroupObject,
  488.         MUIA_Group_Horiz, TRUE,
  489.         MUIA_Group_SameSize, TRUE,
  490.         MUIA_Group_HorizSpacing, TRUE,
  491.         MUIA_Group_VertSpacing, TRUE,
  492.         Child, Object->BT_Redraw_Ext_Data,
  493.         Child, Object->BT_Effacer_Fond,
  494.     End;
  495.  
  496.     GROUP_ROOT_6 = GroupObject,
  497.         MUIA_Weight, 690,
  498.         Child, Object->PA_chargement_fond,
  499.         Child, GR_grp_11,
  500.     End;
  501.  
  502.     Object->WI_Chargement = WindowObject,
  503.         MUIA_Window_Title, "Loading",
  504.         MUIA_HelpNode, "WI_Chargement",
  505.         MUIA_Window_ID, MAKE_ID('5', 'W', 'I', 'N'),
  506.         WindowContents, GROUP_ROOT_6,
  507.     End;
  508.  
  509.     Object->LV_Elements = ListObject,
  510.         MUIA_Frame, MUIV_Frame_InputList,
  511.     End;
  512.  
  513.     Object->LV_Elements = ListviewObject,
  514.         MUIA_HelpNode, "LV_Elements",
  515.         MUIA_Weight, 966,
  516.         MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  517.         MUIA_Listview_DoubleClick, TRUE,
  518.         MUIA_Listview_Input, TRUE,
  519.         MUIA_Listview_List, Object->LV_Elements,
  520.     End;
  521.  
  522.     GR_grp_30 = GroupObject,
  523.         Child, Object->LV_Elements,
  524.     End;
  525.  
  526.     Object->TX_Selected_Element = TextObject,
  527.         MUIA_HelpNode, "TX_Selected_Element",
  528.         MUIA_Background, MUII_BACKGROUND,
  529.         MUIA_Text_Contents, Object->STR_TX_Selected_Element,
  530.         MUIA_Text_SetMin, TRUE,
  531.     End;
  532.  
  533.     Object->TX_Pays = TextObject,
  534.         MUIA_HelpNode, "TX_Pays",
  535.         MUIA_Background, MUII_BACKGROUND,
  536.         MUIA_Text_Contents, Object->STR_TX_Pays,
  537.         MUIA_Text_SetMin, TRUE,
  538.     End;
  539.  
  540.     Object->TX_Latitude = TextObject,
  541.         MUIA_HelpNode, "TX_Latitude",
  542.         MUIA_Background, MUII_BACKGROUND,
  543.         MUIA_Text_Contents, Object->STR_TX_Latitude,
  544.         MUIA_Text_SetMin, TRUE,
  545.     End;
  546.  
  547.     Object->TX_Longitude = TextObject,
  548.         MUIA_HelpNode, "TX_Longitude",
  549.         MUIA_Background, MUII_BACKGROUND,
  550.         MUIA_Text_Contents, Object->STR_TX_Longitude,
  551.         MUIA_Text_SetMin, TRUE,
  552.     End;
  553.  
  554.     Object->TX_Caracteristique = TextObject,
  555.         MUIA_HelpNode, "TX_Caracteristique",
  556.         MUIA_Background, MUII_BACKGROUND,
  557.         MUIA_Text_Contents, Object->STR_TX_Caracteristique,
  558.         MUIA_Text_SetMin, TRUE,
  559.     End;
  560.  
  561.     Space_1 = HVSpace;
  562.  
  563.     Object->BT_Element_Origine = SimpleButton("Source point");
  564.  
  565.     Object->BT_Element_Destination = SimpleButton("Target point");
  566.  
  567.     GR_grp_24 = GroupObject,
  568.         MUIA_Weight, 30,
  569.         MUIA_Frame, MUIV_Frame_Group,
  570.         MUIA_FrameTitle, "Informations",
  571.         Child, Object->TX_Selected_Element,
  572.         Child, Object->TX_Pays,
  573.         Child, Object->TX_Latitude,
  574.         Child, Object->TX_Longitude,
  575.         Child, Object->TX_Caracteristique,
  576.         Child, Space_1,
  577.         Child, Object->BT_Element_Origine,
  578.         Child, Object->BT_Element_Destination,
  579.     End;
  580.  
  581.     GROUP_ROOT_10 = GroupObject,
  582.         MUIA_Group_Horiz, TRUE,
  583.         Child, GR_grp_30,
  584.         Child, GR_grp_24,
  585.     End;
  586.  
  587.     Object->WI_Sel_Elem = WindowObject,
  588.         MUIA_Window_Title, "Element",
  589.         MUIA_HelpNode, "WI_Sel_Elem",
  590.         MUIA_Window_ID, MAKE_ID('6', 'W', 'I', 'N'),
  591.         WindowContents, GROUP_ROOT_10,
  592.     End;
  593.  
  594.     Object->RA_Type_Data = RadioObject,
  595.         MUIA_Frame, MUIV_Frame_Group,
  596.         MUIA_FrameTitle, "Type de donnee",
  597.         MUIA_HelpNode, "RA_Type_Data",
  598.         MUIA_Radio_Entries, Object->RA_Type_DataContent,
  599.     End;
  600.  
  601.     Object->STR_fichier_Donnee = StringObject,
  602.         MUIA_Frame, MUIV_Frame_String,
  603.         MUIA_HelpNode, "STR_fichier_Donnee",
  604.     End;
  605.  
  606.     Object->IM_Fichier_Donnee = ImageObject,
  607.         MUIA_Image_Spec, 20,
  608.         MUIA_HelpNode, "IM_Fichier_Donnee",
  609.         MUIA_InputMode, MUIV_InputMode_RelVerify,
  610.         MUIA_Frame, MUIV_Frame_ImageButton,
  611.         MUIA_Image_FreeVert, TRUE,
  612.         MUIA_Image_FreeHoriz, TRUE,
  613.         MUIA_FixHeight, 10,
  614.         MUIA_FixWidth, 8,
  615.     End;
  616.  
  617.     GR_File_Donnee = GroupObject,
  618.         MUIA_Frame, MUIV_Frame_Group,
  619.         MUIA_FrameTitle, "Selection du fichier de donnees",
  620.         MUIA_Group_Horiz, TRUE,
  621.         Child, Object->STR_fichier_Donnee,
  622.         Child, Object->IM_Fichier_Donnee,
  623.     End;
  624.  
  625.     Object->LV_Data1 = ListObject,
  626.         MUIA_Frame, MUIV_Frame_InputList,
  627.     End;
  628.  
  629.     Object->LV_Data1 = ListviewObject,
  630.         MUIA_HelpNode, "LV_Data1",
  631.         MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  632.         MUIA_Listview_Input, TRUE,
  633.         MUIA_Listview_List, Object->LV_Data1,
  634.     End;
  635.  
  636.     Object->RA_label_4 = RadioObject,
  637.         MUIA_Frame, MUIV_Frame_Group,
  638.         MUIA_FrameTitle, "radio4_title",
  639.         MUIA_HelpNode, "RA_label_4",
  640.         MUIA_Radio_Entries, Object->RA_label_4Content,
  641.     End;
  642.  
  643.     Object->LV_Data2 = ListObject,
  644.         MUIA_Frame, MUIV_Frame_InputList,
  645.     End;
  646.  
  647.     Object->LV_Data2 = ListviewObject,
  648.         MUIA_HelpNode, "LV_Data2",
  649.         MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  650.         MUIA_Listview_Input, TRUE,
  651.         MUIA_Listview_List, Object->LV_Data2,
  652.     End;
  653.  
  654.     Object->STR_Coef = StringObject,
  655.         MUIA_Frame, MUIV_Frame_String,
  656.         MUIA_HelpNode, "STR_Coef",
  657.     End;
  658.  
  659.     obj_aux13 = Label2("Coef Mult:");
  660.  
  661.     obj_aux12 = GroupObject,
  662.         MUIA_Group_Columns, 2,
  663.         Child, obj_aux13,
  664.         Child, Object->STR_Coef,
  665.     End;
  666.  
  667.     GR_Virtuel = GroupObject,
  668.         MUIA_Frame, MUIV_Frame_Group,
  669.         MUIA_FrameTitle, "Virtuel",
  670.         MUIA_Group_Horiz, TRUE,
  671.         Child, Object->LV_Data1,
  672.         Child, Object->RA_label_4,
  673.         Child, Object->LV_Data2,
  674.         Child, obj_aux12,
  675.     End;
  676.  
  677.     LA_Nom_Titre = Label("Nom de la donnee:");
  678.  
  679.     LA_Nom_Label = Label("<nom>");
  680.  
  681.     LA_Type_Titre = Label("Type de la donnee");
  682.  
  683.     LA_Titre_Label = Label("<titre>");
  684.  
  685.     Object->BT_Maj = SimpleButton("_Maj");
  686.  
  687.     Space_2 = HVSpace;
  688.  
  689.     GR_Infos_Donnees = GroupObject,
  690.         MUIA_Frame, MUIV_Frame_Group,
  691.         MUIA_FrameTitle, "Infos",
  692.         MUIA_Group_Columns, 2,
  693.         MUIA_Group_HorizSpacing, FALSE,
  694.         Child, LA_Nom_Titre,
  695.         Child, LA_Nom_Label,
  696.         Child, LA_Type_Titre,
  697.         Child, LA_Titre_Label,
  698.         Child, Object->BT_Maj,
  699.         Child, Space_2,
  700.     End;
  701.  
  702.     Object->BT_Ajouter_Donnee = SimpleButton("_Ajouter");
  703.  
  704.     Object->BT_Effacer = SimpleButton("_Effacer");
  705.  
  706.     GR_Operations = GroupObject,
  707.         MUIA_Frame, MUIV_Frame_Group,
  708.         MUIA_FrameTitle, "Operations:",
  709.         MUIA_Group_Horiz, TRUE,
  710.         Child, Object->BT_Ajouter_Donnee,
  711.         Child, Object->BT_Effacer,
  712.     End;
  713.  
  714.     GR_Edit_Donnee = GroupObject,
  715.         Child, Object->RA_Type_Data,
  716.         Child, GR_File_Donnee,
  717.         Child, GR_Virtuel,
  718.         Child, GR_Infos_Donnees,
  719.         Child, GR_Operations,
  720.     End;
  721.  
  722.     Object->WI_Param_Datas = WindowObject,
  723.         MUIA_Window_Title, "PArametrage/Ajout de donnees ",
  724.         MUIA_HelpNode, "WI_Param_Datas",
  725.         MUIA_Window_ID, MAKE_ID('7', 'W', 'I', 'N'),
  726.         WindowContents, GR_Edit_Donnee,
  727.     End;
  728.  
  729.     Object->LV_Deselect = ListObject,
  730.         MUIA_Frame, MUIV_Frame_InputList,
  731.     End;
  732.  
  733.     Object->LV_Deselect = ListviewObject,
  734.         MUIA_HelpNode, "LV_Deselect",
  735.         MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  736.         MUIA_Listview_Input, TRUE,
  737.         MUIA_Listview_List, Object->LV_Deselect,
  738.     End;
  739.  
  740.     Object->BT_Vers_Deselect = TextObject,
  741.         ButtonFrame,
  742.         MUIA_Weight, 324,
  743.         MUIA_ControlChar, 'b',
  744.         MUIA_Text_Contents, "<---",
  745.         MUIA_Text_PreParse, "\033c",
  746.         MUIA_Text_HiChar, 'b',
  747.         MUIA_HelpNode, "BT_Vers_Deselect",
  748.         MUIA_InputMode, MUIV_InputMode_RelVerify,
  749.     End;
  750.  
  751.     Object->BT_Vers_Select = TextObject,
  752.         ButtonFrame,
  753.         MUIA_Weight, 327,
  754.         MUIA_ControlChar, 'b',
  755.         MUIA_Text_Contents, "----->",
  756.         MUIA_Text_PreParse, "\033c",
  757.         MUIA_Text_HiChar, 'b',
  758.         MUIA_HelpNode, "BT_Vers_Select",
  759.         MUIA_InputMode, MUIV_InputMode_RelVerify,
  760.     End;
  761.  
  762.     GR_Vertical_Centre = GroupObject,
  763.         MUIA_Group_VertSpacing, FALSE,
  764.         Child, Object->LV_Deselect,
  765.         Child, Object->BT_Vers_Deselect,
  766.         Child, Object->BT_Vers_Select,
  767.     End;
  768.  
  769.     Object->LV_Select = ListObject,
  770.         MUIA_Frame, MUIV_Frame_InputList,
  771.     End;
  772.  
  773.     Object->LV_Select = ListviewObject,
  774.         MUIA_HelpNode, "LV_Select",
  775.         MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  776.         MUIA_Listview_Input, TRUE,
  777.         MUIA_Listview_List, Object->LV_Select,
  778.     End;
  779.  
  780.     GR_Horizontal_Gauche = GroupObject,
  781.         MUIA_Weight, 1000,
  782.         MUIA_Frame, MUIV_Frame_Group,
  783.         MUIA_FrameTitle, "Countries selection",
  784.         MUIA_Group_Horiz, TRUE,
  785.         Child, GR_Vertical_Centre,
  786.         Child, Object->LV_Select,
  787.     End;
  788.  
  789.     Object->BT_Continent = SimpleButton("_Continent....");
  790.  
  791.     Object->BT_Petits_Pays = SimpleButton("Small countries");
  792.  
  793.     Object->BT_Tout_Des = SimpleButton("Deselec_t all");
  794.  
  795.     Object->BT_Tout_Sel = SimpleButton("Select all");
  796.  
  797.     GR_Action = GroupObject,
  798.         MUIA_Weight, 1000,
  799.         MUIA_Frame, MUIV_Frame_Group,
  800.         MUIA_FrameTitle, "Action",
  801.         MUIA_Group_Columns, 2,
  802.         Child, Object->BT_Continent,
  803.         Child, Object->BT_Petits_Pays,
  804.         Child, Object->BT_Tout_Des,
  805.         Child, Object->BT_Tout_Sel,
  806.     End;
  807.  
  808.     GR_Vertical_Gauche = GroupObject,
  809.         MUIA_Weight, 347,
  810.         Child, GR_Horizontal_Gauche,
  811.         Child, GR_Action,
  812.     End;
  813.  
  814.     Object->RA_Type_Graph = RadioObject,
  815.         MUIA_Weight, 0,
  816.         MUIA_Frame, MUIV_Frame_Group,
  817.         MUIA_FrameTitle, "Graph type",
  818.         MUIA_HelpNode, "RA_Type_Graph",
  819.         MUIA_Radio_Entries, Object->RA_Type_GraphContent,
  820.     End;
  821.  
  822.     Object->LV_Datas = ListObject,
  823.         MUIA_Frame, MUIV_Frame_InputList,
  824.     End;
  825.  
  826.     Object->LV_Datas = ListviewObject,
  827.         MUIA_HelpNode, "LV_Datas",
  828.         MUIA_Weight, 941,
  829.         MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  830.         MUIA_Listview_Input, TRUE,
  831.         MUIA_Listview_List, Object->LV_Datas,
  832.     End;
  833.  
  834.     Object->BT_Editer = SimpleButton("_Modify...");
  835.  
  836.     Object->BT_Supprimer = SimpleButton("Delete");
  837.  
  838.     Object->BT_Ajouter = SimpleButton("Add");
  839.  
  840.     Object->BT_Ok_Datas = TextObject,
  841.         ButtonFrame,
  842.         MUIA_Weight, 0,
  843.         MUIA_ControlChar, 'b',
  844.         MUIA_Text_Contents, "OK",
  845.         MUIA_Text_PreParse, "\033c",
  846.         MUIA_Text_HiChar, 'b',
  847.         MUIA_HelpNode, "BT_Ok_Datas",
  848.         MUIA_InputMode, MUIV_InputMode_RelVerify,
  849.     End;
  850.  
  851.     GR_Vertical_Droite = GroupObject,
  852.         MUIA_Weight, 0,
  853.         Child, Object->RA_Type_Graph,
  854.         Child, Object->LV_Datas,
  855.         Child, Object->BT_Editer,
  856.         Child, Object->BT_Supprimer,
  857.         Child, Object->BT_Ajouter,
  858.         Child, Object->BT_Ok_Datas,
  859.     End;
  860.  
  861.     GROUP_ROOT_8 = GroupObject,
  862.         MUIA_Group_Horiz, TRUE,
  863.         Child, GR_Vertical_Gauche,
  864.         Child, GR_Vertical_Droite,
  865.     End;
  866.  
  867.     Object->WI_Datas = WindowObject,
  868.         MUIA_Window_Title, "Data Display Preferences",
  869.         MUIA_HelpNode, "WI_Datas",
  870.         MUIA_Window_ID, MAKE_ID('8', 'W', 'I', 'N'),
  871.         WindowContents, GROUP_ROOT_8,
  872.     End;
  873.  
  874.     Object->STR_Trajectoire_Fichier = StringObject,
  875.         MUIA_Frame, MUIV_Frame_String,
  876.         MUIA_HelpNode, "STR_Trajectoire_Fichier",
  877.     End;
  878.  
  879.     obj_aux15 = Label2("File:");
  880.  
  881.     obj_aux14 = GroupObject,
  882.         MUIA_Group_Columns, 2,
  883.         Child, obj_aux15,
  884.         Child, Object->STR_Trajectoire_Fichier,
  885.     End;
  886.  
  887.     Object->IM_Trajectoire_Choix = ImageObject,
  888.         MUIA_Image_Spec, 20,
  889.         MUIA_HelpNode, "IM_Trajectoire_Choix",
  890.         MUIA_InputMode, MUIV_InputMode_RelVerify,
  891.         MUIA_Frame, MUIV_Frame_ImageButton,
  892.         MUIA_Image_FreeVert, TRUE,
  893.         MUIA_Image_FreeHoriz, TRUE,
  894.         MUIA_FixHeight, 10,
  895.         MUIA_FixWidth, 8,
  896.     End;
  897.  
  898.     GR_grp_28 = GroupObject,
  899.         MUIA_Group_Horiz, TRUE,
  900.         Child, obj_aux14,
  901.         Child, Object->IM_Trajectoire_Choix,
  902.     End;
  903.  
  904.     Object->BT_Trajectoire_OK = SimpleButton("OK");
  905.  
  906.     Object->BT_Trajectoire_Cancel = SimpleButton("Cancel");
  907.  
  908.     GR_grp_29 = GroupObject,
  909.         MUIA_Group_Horiz, TRUE,
  910.         Child, Object->BT_Trajectoire_OK,
  911.         Child, Object->BT_Trajectoire_Cancel,
  912.     End;
  913.  
  914.     Object->STR_PA_chargement_trajectoire = String("", 80);
  915.  
  916.     Object->PA_chargement_trajectoire = PopButton(MUII_PopUp);
  917.  
  918.     Object->PA_chargement_trajectoire = PopaslObject,
  919.         MUIA_HelpNode, "PA_chargement_trajectoire",
  920.         MUIA_Popasl_Type, 0,
  921.         MUIA_Popstring_String, Object->STR_PA_chargement_trajectoire,
  922.         MUIA_Popstring_Button, Object->PA_chargement_trajectoire,
  923.     End;
  924.  
  925.     GROUP_ROOT_13 = GroupObject,
  926.         MUIA_Frame, MUIV_Frame_Group,
  927.         MUIA_FrameTitle, "Select a Path",
  928.         Child, GR_grp_28,
  929.         Child, GR_grp_29,
  930.         Child, Object->PA_chargement_trajectoire,
  931.     End;
  932.  
  933.     Object->WI_Trajectoire = WindowObject,
  934.         MUIA_Window_Title, "Path",
  935.         MUIA_HelpNode, "WI_Trajectoire",
  936.         MUIA_Window_ID, MAKE_ID('9', 'W', 'I', 'N'),
  937.         WindowContents, GROUP_ROOT_13,
  938.     End;
  939.  
  940.     Object->CY_organisation = CycleObject,
  941.         MUIA_HelpNode, "CY_organisation",
  942.         MUIA_Cycle_Entries, Object->CY_organisationContent,
  943.     End;
  944.  
  945.     LA_organisation_officiel = Label("offical name:");
  946.  
  947.     Object->TX_organisation_officiel = TextObject,
  948.         MUIA_HelpNode, "TX_organisation_officiel",
  949.         MUIA_Background, MUII_BACKGROUND,
  950.         MUIA_Text_Contents, Object->STR_TX_organisation_officiel,
  951.         MUIA_Text_SetMin, TRUE,
  952.     End;
  953.  
  954.     GR_info_organisation = GroupObject,
  955.         MUIA_Weight, 0,
  956.         MUIA_Group_Horiz, TRUE,
  957.         Child, LA_organisation_officiel,
  958.         Child, Object->TX_organisation_officiel,
  959.     End;
  960.  
  961.     Object->LV_organisation = FloattextObject,
  962.         MUIA_Frame, MUIV_Frame_ReadList,
  963.     End;
  964.  
  965.     Object->LV_organisation = ListviewObject,
  966.         MUIA_HelpNode, "LV_organisation",
  967.         MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  968.         MUIA_Listview_Input, TRUE,
  969.         MUIA_Listview_List, Object->LV_organisation,
  970.     End;
  971.  
  972.     GROUP_ROOT_organisation = GroupObject,
  973.         Child, Object->CY_organisation,
  974.         Child, GR_info_organisation,
  975.         Child, Object->LV_organisation,
  976.     End;
  977.  
  978.     Object->WI_Organisation = WindowObject,
  979.         MUIA_Window_Title, "Info about organizations",
  980.         MUIA_HelpNode, "WI_Organisation",
  981.         MUIA_Window_ID, MAKE_ID('1', '0', 'W', 'I'),
  982.         WindowContents, GROUP_ROOT_organisation,
  983.     End;
  984.  
  985.     Object->TX_nom_element = TextObject,
  986.         MUIA_HelpNode, "TX_nom_element",
  987.         MUIA_Background, MUII_BACKGROUND,
  988.         MUIA_Text_Contents, Object->STR_TX_nom_element,
  989.         MUIA_Text_SetMin, TRUE,
  990.     End;
  991.  
  992.     Object->TX_type_element = TextObject,
  993.         MUIA_HelpNode, "TX_type_element",
  994.         MUIA_Background, MUII_BACKGROUND,
  995.         MUIA_Text_Contents, Object->STR_TX_type_element,
  996.         MUIA_Text_SetMin, TRUE,
  997.     End;
  998.  
  999.     Object->TX_pays_element = TextObject,
  1000.         MUIA_HelpNode, "TX_pays_element",
  1001.         MUIA_Background, MUII_BACKGROUND,
  1002.         MUIA_Text_Contents, Object->STR_TX_pays_element,
  1003.         MUIA_Text_SetMin, TRUE,
  1004.     End;
  1005.  
  1006.     LA_lat = Label("Longitude:");
  1007.  
  1008.     Object->TX_longitude_element = TextObject,
  1009.         MUIA_HelpNode, "TX_longitude_element",
  1010.         MUIA_Background, MUII_BACKGROUND,
  1011.         MUIA_Text_Contents, Object->STR_TX_longitude_element,
  1012.         MUIA_Text_SetMin, TRUE,
  1013.     End;
  1014.  
  1015.     GR_grp_41 = GroupObject,
  1016.         MUIA_Group_Horiz, TRUE,
  1017.         Child, LA_lat,
  1018.         Child, Object->TX_longitude_element,
  1019.     End;
  1020.  
  1021.     LA_latitude_element = Label("Latitude:");
  1022.  
  1023.     Object->TX_latitude_element = TextObject,
  1024.         MUIA_HelpNode, "TX_latitude_element",
  1025.         MUIA_Background, MUII_BACKGROUND,
  1026.         MUIA_Text_Contents, Object->STR_TX_latitude_element,
  1027.         MUIA_Text_SetMin, TRUE,
  1028.     End;
  1029.  
  1030.     GR_grp_42 = GroupObject,
  1031.         MUIA_Group_Horiz, TRUE,
  1032.         Child, LA_latitude_element,
  1033.         Child, Object->TX_latitude_element,
  1034.     End;
  1035.  
  1036.     Object->TX_caracteristique_element = TextObject,
  1037.         MUIA_HelpNode, "TX_caracteristique_element",
  1038.         MUIA_Background, MUII_BACKGROUND,
  1039.         MUIA_Text_Contents, Object->STR_TX_caracteristique_element,
  1040.         MUIA_Text_SetMin, TRUE,
  1041.     End;
  1042.  
  1043.     Object->BT_voir_donnee_externe = SimpleButton("Watch external associeted data");
  1044.  
  1045.     GROUP_ROOT_INFO_ELEM = GroupObject,
  1046.         Child, Object->TX_nom_element,
  1047.         Child, Object->TX_type_element,
  1048.         Child, Object->TX_pays_element,
  1049.         Child, GR_grp_41,
  1050.         Child, GR_grp_42,
  1051.         Child, Object->TX_caracteristique_element,
  1052.         Child, Object->BT_voir_donnee_externe,
  1053.     End;
  1054.  
  1055.     Object->WI_Info_Element = WindowObject,
  1056.         MUIA_Window_Title, "Information about Element",
  1057.         MUIA_HelpNode, "WI_Info_Element",
  1058.         MUIA_Window_ID, MAKE_ID('1', '1', 'W', 'I'),
  1059.         WindowContents, GROUP_ROOT_INFO_ELEM,
  1060.     End;
  1061.  
  1062.     LA_classement = Label("sorting by:");
  1063.  
  1064.     Object->TX_classement = TextObject,
  1065.         MUIA_HelpNode, "TX_classement",
  1066.         MUIA_Background, MUII_BACKGROUND,
  1067.         MUIA_Text_Contents, Object->STR_TX_classement,
  1068.         MUIA_Text_SetMin, TRUE,
  1069.     End;
  1070.  
  1071.     GR_grp_45 = GroupObject,
  1072.         MUIA_Group_Horiz, TRUE,
  1073.         Child, LA_classement,
  1074.         Child, Object->TX_classement,
  1075.     End;
  1076.  
  1077.     Object->LV_classement = ListObject,
  1078.         MUIA_Frame, MUIV_Frame_InputList,
  1079.     End;
  1080.  
  1081.     Object->LV_classement = ListviewObject,
  1082.         MUIA_HelpNode, "LV_classement",
  1083.         MUIA_Listview_MultiSelect, MUIV_Listview_MultiSelect_Default,
  1084.         MUIA_Listview_Input, TRUE,
  1085.         MUIA_Listview_List, Object->LV_classement,
  1086.     End;
  1087.  
  1088.     GROUP_ROOT_17 = GroupObject,
  1089.         Child, GR_grp_45,
  1090.         Child, Object->LV_classement,
  1091.     End;
  1092.  
  1093.     Object->WI_Classement = WindowObject,
  1094.         MUIA_Window_Title, "Show data by list",
  1095.         MUIA_HelpNode, "WI_Classement",
  1096.         MUIA_Window_ID, MAKE_ID('1', '2', 'W', 'I'),
  1097.         WindowContents, GROUP_ROOT_17,
  1098.     End;
  1099.  
  1100.     REC_label_0 = RectangleObject,
  1101.     End;
  1102.  
  1103.     GROUP_ROOT_info = GroupObject,
  1104.         Child, REC_label_0,
  1105.     End;
  1106.  
  1107.     Object->WI_Info = WindowObject,
  1108.         MUIA_Window_Title, "info on:",
  1109.         MUIA_Window_ID, MAKE_ID('1', '3', 'W', 'I'),
  1110.         WindowContents, GROUP_ROOT_info,
  1111.     End;
  1112.  
  1113.     Object->App = ApplicationObject,
  1114.         MUIA_Application_Author, "Thomas Landspurg & Olivier Collard",
  1115.         MUIA_Application_Base, "AmiGlobe",
  1116.         MUIA_Application_Title, "AmiGlobe",
  1117.         MUIA_Application_Version, "$VER: 0.99 (17-11-94)",
  1118.         MUIA_Application_Copyright, "Thomas Landspurg & Olivier Collard",
  1119.         MUIA_Application_Description, "Geographical atlas",
  1120.         SubWindow, Object->WI_Cmd,
  1121.         SubWindow, Object->WI_Param,
  1122.         SubWindow, Object->WI_Sel_Cty,
  1123.         SubWindow, Object->WI_Cmd_Panel,
  1124.         SubWindow, Object->WI_Sel_Cont,
  1125.         SubWindow, Object->WI_Chargement,
  1126.         SubWindow, Object->WI_Sel_Elem,
  1127.         SubWindow, Object->WI_Param_Datas,
  1128.         SubWindow, Object->WI_Datas,
  1129.         SubWindow, Object->WI_Trajectoire,
  1130.         SubWindow, Object->WI_Organisation,
  1131.         SubWindow, Object->WI_Info_Element,
  1132.         SubWindow, Object->WI_Classement,
  1133.         SubWindow, Object->WI_Info,
  1134.     End;
  1135.  
  1136.  
  1137.     if (!Object->App)
  1138.     {
  1139.         FreeVec(Object);
  1140.         return(NULL);
  1141.     }
  1142.  
  1143.     DoMethod(Object->WI_Cmd,
  1144.         MUIM_Window_SetCycleChain, Object->BT_Zoom,
  1145.         Object->BT_Zoom_Out,
  1146.         Object->BT_Redraw,
  1147.         Object->BT_Zoom_Reset,
  1148.         Object->BT_Info,
  1149.         Object->CY_Proj,
  1150.         0
  1151.         );
  1152.  
  1153.     DoMethod(Object->WI_Param,
  1154.         MUIM_Window_SetCycleChain, Object->CH_Lacs,
  1155.         Object->CH_Riv,
  1156.         Object->CH_LonLat,
  1157.         Object->CH_Noms,
  1158.         Object->CH_Coord,
  1159.         Object->CH_Fill_Pays,
  1160.         Object->CH_Elements,
  1161.         Object->CH_Trajectoires,
  1162.         Object->CH_Distance,
  1163.         Object->CH_Scale,
  1164.         Object->CH_Area,
  1165.         Object->SL_x,
  1166.         Object->SL_y,
  1167.         Object->SL_z,
  1168.         Object->IM_Rectangle,
  1169.         0
  1170.         );
  1171.  
  1172.     DoMethod(Object->WI_Sel_Cty,
  1173.         MUIM_Window_SetCycleChain, Object->LV_Pays,
  1174.         0
  1175.         );
  1176.  
  1177.     DoMethod(Object->WI_Cmd_Panel,
  1178.         MUIM_Window_SetCycleChain, Object->BT_Move,
  1179.         Object->BT_Show_Pt,
  1180.         Object->BT_Show_Seg,
  1181.         Object->BT_Edit,
  1182.         Object->BT_Create_Pays,
  1183.         Object->BT_New_Border,
  1184.         Object->BT_New_Point,
  1185.         Object->BT_End_Border,
  1186.         Object->STR_Nom_Border,
  1187.         Object->STR_Code,
  1188.         Object->SL_Code_Point,
  1189.         0
  1190.         );
  1191.  
  1192.     DoMethod(Object->WI_Sel_Cont,
  1193.         MUIM_Window_SetCycleChain, Object->LV_Continent,
  1194.         0
  1195.         );
  1196.  
  1197.     DoMethod(Object->WI_Chargement,
  1198.         MUIM_Window_SetCycleChain, Object->PA_chargement_fond,
  1199.         Object->BT_Redraw_Ext_Data,
  1200.         Object->BT_Effacer_Fond,
  1201.         0
  1202.         );
  1203.  
  1204.     DoMethod(Object->WI_Sel_Elem,
  1205.         MUIM_Window_SetCycleChain, Object->LV_Elements,
  1206.         Object->BT_Element_Origine,
  1207.         Object->BT_Element_Destination,
  1208.         0
  1209.         );
  1210.  
  1211.     DoMethod(Object->WI_Param_Datas,
  1212.         MUIM_Window_SetCycleChain, Object->RA_Type_Data,
  1213.         Object->STR_fichier_Donnee,
  1214.         Object->IM_Fichier_Donnee,
  1215.         Object->LV_Data1,
  1216.         Object->RA_label_4,
  1217.         Object->LV_Data2,
  1218.         Object->STR_Coef,
  1219.         Object->BT_Maj,
  1220.         Object->BT_Ajouter_Donnee,
  1221.         Object->BT_Effacer,
  1222.         0
  1223.         );
  1224.  
  1225.     DoMethod(Object->WI_Datas,
  1226.         MUIM_Window_SetCycleChain, Object->LV_Deselect,
  1227.         Object->BT_Vers_Deselect,
  1228.         Object->BT_Vers_Select,
  1229.         Object->LV_Select,
  1230.         Object->BT_Continent,
  1231.         Object->BT_Petits_Pays,
  1232.         Object->BT_Tout_Des,
  1233.         Object->BT_Tout_Sel,
  1234.         Object->RA_Type_Graph,
  1235.         Object->LV_Datas,
  1236.         Object->BT_Editer,
  1237.         Object->BT_Supprimer,
  1238.         Object->BT_Ajouter,
  1239.         Object->BT_Ok_Datas,
  1240.         0
  1241.         );
  1242.  
  1243.     DoMethod(Object->WI_Trajectoire,
  1244.         MUIM_Window_SetCycleChain, Object->STR_Trajectoire_Fichier,
  1245.         Object->IM_Trajectoire_Choix,
  1246.         Object->BT_Trajectoire_OK,
  1247.         Object->BT_Trajectoire_Cancel,
  1248.         Object->PA_chargement_trajectoire,
  1249.         0
  1250.         );
  1251.  
  1252.     DoMethod(Object->WI_Organisation,
  1253.         MUIM_Window_SetCycleChain, Object->CY_organisation,
  1254.         Object->LV_organisation,
  1255.         0
  1256.         );
  1257.  
  1258.     DoMethod(Object->WI_Info_Element,
  1259.         MUIM_Window_SetCycleChain, Object->BT_voir_donnee_externe,
  1260.         0
  1261.         );
  1262.  
  1263.     DoMethod(Object->WI_Classement,
  1264.         MUIM_Window_SetCycleChain, Object->LV_classement,
  1265.         0
  1266.         );
  1267.  
  1268.     DoMethod(Object->WI_Info,
  1269.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  1270.         Object->WI_Info,
  1271.         3,
  1272.         MUIM_Set, MUIA_Window_Open, FALSE
  1273.         );
  1274.  
  1275.     DoMethod(Object->WI_Info,
  1276.         MUIM_Window_SetCycleChain, 0
  1277.         );
  1278.  
  1279.  
  1280.     return(Object);
  1281. }
  1282.  
  1283. void DisposeApp(struct ObjApp * Object)
  1284. {
  1285.     MUI_DisposeObject(Object->App);
  1286.     FreeVec(Object);
  1287. }
  1288.